home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / gnu / gmp-132.lha / gmp-1.3.2 / tests / urandom.h < prev   
Text File  |  1993-05-02  |  331b  |  18 lines
  1. #if defined (hpux) || defined (__alpha__)
  2. /* HPUX lacks random().  DEC Alpha's random() returns a double.  */
  3. static inline unsigned long
  4. urandom ()
  5. {
  6.   return mrand48 ();
  7. }
  8. #else
  9. long random ();
  10.  
  11. static inline unsigned long
  12. urandom ()
  13. {
  14.   /* random() returns 31 bits, we want 32.  */
  15.   return random() ^ (random() << 1);
  16. }
  17. #endif
  18.